﻿module TestBusquedaDelTesoro where

import Main
import Diccionario
import Test.HUnit

--Para hacer más sencillo
runTestsBT = runTestTT allTestBT

--TESTS
testBT1 = TestCase (assertEqual "Busqueda Exitosa 1," 
				(Just "alfajor") (búsquedaDelTesoro "inicio" ((=='a').head) dicc2 ) )
testBT2 = TestCase (assertEqual "Busqueda Fallida 1," 
				(Nothing) (búsquedaDelTesoro "auto" ((=='a').head) dicc2 ) )
testBT3 = TestCase (assertEqual "Busqueda Exitosa 2," 
				(Just "avion") (búsquedaDelTesoro "auto" ((=='a').head) dicc2MasFlores ) )
testBT4 = TestCase (assertEqual "Busqueda Fallida 2," 
				(Nothing) (búsquedaDelTesoro "inicio" ((=='g').head) dicc2MasFlores ) )

				
				
--DECLARACION DE SUITs
--Hacemos una suit con los casos de test
allTestBT = TestList [
	TestLabel "TestBT1" testBT1,
	TestLabel "TestBT2" testBT2,
	TestLabel "TestBT3" testBT3,
	TestLabel "TestBT4" testBT4]
	
--Diccionarios
dicc2MasFlores = definir "flores" "avion" dicc2
